* lisp/wid-edit.el (widget-default-active): Normalize boolean result.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 4d1a609809d2b26aeed0418478fe024478a09ff8..32e0b3e125bb13f103218b33c09a8cd5849385e6 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1663,7 +1663,8 @@ The value of the :type attribute should be an unconverted widget type."
       (and (not (widget-get widget :inactive))
           (let ((parent (widget-get widget :parent)))
             (or (null parent)
-                (widget-apply parent :active))))))
+                (widget-apply parent :active)))
+           t)))
 
 (defun widget-default-deactivate (widget)
   "Make WIDGET inactive for user modifications."